unit Thing_Storage;
interface
uses
Classes;
type
TThing = class (TPersistent)
private
  FName:string;
  FID:string;
  FComments:string;
  FMass:real;
  FBoardPict:string;
  FStructure:real;
public
  procedure CopyValuesFrom(Thing:TThing); virtual;
published
  property Name:string read FName write FName;
  property ID:string read FID write FID;
  property Comments:string read FComments write FComments;
  property BoardPict:string read FBoardPict write FBoardPict;
end;

implementation

procedure TThing.CopyValuesFrom(Thing:TThing);
begin
  FName:=Thing.FName;
  FID:=Thing.FID;
  FComments:=Thing.FComments;
  FMass:=Thing.FMass;
  FBoardPict:=Thing.FBoardPict;
end;

end.

